From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 21 Jun 1993 19:37:49 +0000 (+0000)
Subject: (Fremove_text_properties, Fadd_text_properties):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95202
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=05d5b93e409a24ed8fe6bdbf0cc8a9723d33c816;p=emacs.git

(Fremove_text_properties, Fadd_text_properties):
Really do next_interval when skipping the first interval.
---

diff --git a/src/textprop.c b/src/textprop.c
index d5f3852cae7..ea796887457 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -643,6 +643,7 @@ Return t if any property value actually changed, nil otherwise.")
 	  if (got >= len)
 	    return Qnil;
 	  len -= got;
+	  i = next_interval (i);
 	}
       else
 	{
@@ -815,6 +816,7 @@ Return t if any property was actually removed, nil otherwise.")
 	  if (got >= len)
 	    return Qnil;
 	  len -= got;
+	  i = next_interval (i);
 	}
       /* Split away the beginning of this interval; what we don't
 	 want to modify.  */